<%

Function mensagens_painel_lista_amigos(amigos)

	DIM total

	total = usuario_lista(amigos)		

	mensagens_painel_lista_amigos = total

End Function

Function mensagens_mural_tipo(valor)

	DIM abas_separadas

	abas_separadas = Split(valor,"_")
	
	mensagens_mural_tipo = abas_separadas(0)

End Function

Function mensagens_mural_id(valor)

	DIM abas_separadas, id
	
	id=0

	if valor <> "geral" then
	
		abas_separadas = Split(valor,"_")
		
		id = abas_separadas(Ubound(abas_separadas))
	
	End IF
	
	mensagens_mural_id = id

End Function

%>
